home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tegl6b.zip / INTROPAK.EXE / lha / SIMPLE.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-05  |  593b  |  23 lines
  1. {-- a simple program that draws a blank frame on the screen. The left }
  2. {-- mouse button can be used to move it around. To exit the program click}
  3. {-- on the EASY OUT button that is displayed in the bottom right corner. }
  4.  
  5. Uses
  6.  
  7.     TEGLUnit,
  8.     TEGLMain;
  9.  
  10.  
  11.  
  12. BEGIN
  13.  
  14.    EasyTEGL;          {-- simple start up }
  15.    EasyOut;           {-- displays a button to break out with }
  16.  
  17.  
  18.    PushImage(1,1,100,100);    {-- save the background and }
  19.    ShadowBox(1,1,100,100);    {-- then draw a box over it. }
  20.  
  21.    TEGLSupervisor;            {-- pass control to the supervisor }
  22. END.
  23.